home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / nxtmem.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-21  |  681 b   |  27 lines
  1. /* nxtmem.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /*<       integer function nxtmem(memwds) >*/
  9. integer nxtmem_(memwds)
  10. integer *memwds;
  11. {
  12.     /* System generated locals */
  13.     integer ret_val;
  14.  
  15.  
  16. /* .. function returns the in nxtmem the next available memory size */
  17. /* .. (which must be evenly divisible by 'nwd4, nwd8, and nwd16' as */
  18. /* .. defined in setmem */
  19.  
  20. /*<       nxtmem=((memwds+1999)/2000)*2000 >*/
  21.     ret_val = (*memwds + 1999) / 2000 * 2000;
  22. /*<       return >*/
  23.     return ret_val;
  24. /*<       end >*/
  25. } /* nxtmem_ */
  26.  
  27.